home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 11
/
FM Towns Free Software Collection 11.iso
/
t_os
/
data
/
dora
/
doraedit.plp
< prev
next >
Wrap
Text File
|
1995-07-01
|
20KB
|
873 lines
/* 共通ルーチン */
/* 入力ファイル選択(ワイルドカード不可) */
%FILEsel0{
[MSG,TYP]
SNDMSG({erande_f.snd});
footnote(MSG);
case (TYP={},
{Yes}, {OLDFILE:=@filesel},
{No}, {OLDFILE:=@filesel(TYP)}
);
case (OLDFILE={},
{Yes},{im({})},
{No},
{
case (@wild(OLDFILE),
{Yes},
{
display({ワイルドカード指定はできません\n});
FILEsel0(MSG,TYP);
},
{No},
{
OLDFILE:=@dir2(@getcdir)|OLDFILE;
case (@filechk(OLDFILE),
{No},
{
SNDMSG({okasi_f.snd});
display(OLDFILE|{がありません\n});
FILEsel0(MSG,TYP);
},
{Yes},{im(OLDFILE)}
);
});
});
};
/* 入力ファイル選択(ワイルドカード可) */
%FILEsel1{
[MSG,TYP]
SNDMSG({erande_f.snd});
footnote(MSG);
case (TYP={},
{Yes}, {OLDFILE:=@filesel},
{No}, {OLDFILE:=@filesel(TYP)}
);
case (OLDFILE={},
{Yes},{im({})},
{No},
{
case (@wild(OLDFILE),
{Yes},
{
OLDFILE:=@dir2(@getcdir)|OLDFILE;
im(OLDFILE);
},
{No},
{
OLDFILE:=@dir2(@getcdir)|OLDFILE;
case (@filechk(OLDFILE),
{No},
{
SNDMSG({okasi_f.snd});
display(OLDFILE|{がありません\n});
FILEsel1(MSG,TYP);
},
{Yes},{im(OLDFILE)}
);
});
});
};
/* 表示終了待ち */
%WAITLOOP{
loop ({
footnote({終了},{b});
waitx();
case (@xtype,
101,{im({No})},201,{im({No})},
,{im({Yes})}
);
});
};
/* ファイル基本操作 */
/* ファイル表示 */
%DISPLAY{
loop ({
case (@FILEsel0({表示するファイルを指定して下さい},)={},
{Yes},{im({No})},
{No},
{
display(@xc({1B})|{[37m});
footnote({ファイル表示 }|OLDFILE);
command({type }|OLDFILE|{|more});
loop ({
footnote({終了},{b});waitx();
case(@xtype,101,{im({No})},201,{im({No})},
,{im({Yes})});
});
im({Yes});
});});};
/* ファイル複写 */
%COPY {
%FILEsel2{
SNDMSG({erande_f.snd});
footnote({複写先のファイルを指定して下さい 複写元=}|OLDFILE);
NEWFILE:=@filesel;
NEWDIR:=@dir2(@getcdir);
case(@wild(OLDFILE),{Yes},{NEWFILE:={*.*}});
case(NEWFILE={},{Yes},{NEWFILE:={*.*}});
NEWFILE:=NEWDIR|NEWFILE;
};
loop ({
case(@FILEsel1({複写元のファイルを指定して下さい},)={},
{Yes},{im({No})},
{No},
{
FILEsel2;
case (@filechk(NEWFILE),
{Yes},
{
SNDMSG({kaknin_f.snd});
footnote({ファイル複写 }|
OLDFILE|{ -> }|NEWFILE);
select ({複写先のファイルに上書き}|
{してもいいですか?},
Wtime4,,
{ は い },
{command({copy }|OLDFILE|{ }|NEWFILE)},
{ いいえ },
);
},
{No},
{command({copy }|OLDFILE|{ }|NEWFILE)}
);
im({Yes});
});
});
};
/* ファイル移動 */
%MOVE {
%FILEsel2{
SNDMSG({erande_f.snd});
footnote({移動先のディレクトリへ移動してキャンセ}|
{ルして下さい 移動元=}|OLDFILE); filesel;NEWDIR:=@getcdir;
case(@nochar(NEWDIR)==3,
{Yes},{NEWFILE:=NEWDIR|@tail(OLDFILE,{\})},
{No},{NEWFILE:=NEWDIR|{\}|@tail(OLDFILE,{\})});
};
loop ({
case(@FILEsel1({移動元のファイルを指定して下さい},)={},
{Yes},{im({No})},
{No},
{
FILEsel2;
var fileno [3];
case(@wild(OLDFILE),
{No},
{case (@filechk(NEWFILE),
{Yes},
{
SNDMSG({kaknin_f.snd});
footnote({ファイル移動 }|
OLDFILE|{ -> }|NEWFILE);
select ({移動先のファイルに上書き}|
{してもいいですか?},
Wtime4,,
{ は い },{fileno:={1}},
{ いいえ },{fileno:={0}});
},
{No},{fileno:={1}});
},
{Yes},{NEWFILE:=@body(NEWFILE,,{\})|{\*.*};
fileno:={n}}
);
case(fileno,
{1},
{
delfile(TEMP2|{_moptemp.tmp});
command({copy }|OLDFILE|{ }|NEWFILE|
{ > }|TEMP2|{_moptemp.tmp});
case (@read(TEMP2|{_moptemp.tmp}),
{ 1 個のファイルを}|
{コピーしました.\n},
{delfile(OLDFILE)});
},
{n},
{
delfile(TEMP2|{_moptemp.tmp});
command({copy }|OLDFILE|{ }|NEWFILE|
{ > }|TEMP2|{_moptemp.tmp});
var N [4];
N:=0;
loop ({
N:=N+1;
%f1 @read(TEMP2|{_moptemp.tmp},N,1);
case(@tail(f1,{個のファイルを}),
{コピーしました.\n},
{im({No})},
,
{
case(@head(f1,{\n})<>
TEMP2|{_MOPTEMP.TMP},
{Yes},
{command({del }|
@head(f1,{\n}))});
im({Yes});
});});
},
{0},
);
im({Yes});
});});};
/* ファイル名変更 */
%RENAME {
%FILEsel2{
SNDMSG({nyuryo_f.snd});
footnote({新ファイル名を入力して下さい 旧ファイル名=}|OLDFILE);
NEWFILE:=@input({新ファイル名を入力して下さい},,@tail(OLDFILE,{\}));
im(NEWFILE);
};
loop ({
case(@FILEsel1({ファイル名を変更するファイルを}|
{指定して下さい},)={},
{Yes},{im({No})},
{No},
{
case(@FILEsel2={},
{Yes},{im({No})},
{No},
{
footnote({ファイル名変更 }|
OLDFILE|{ -> }|NEWFILE);
copyfile(OLDFILE,NEWFILE);
delfile(OLDFILE);
im({Yes});
});});});};
/* ファイル削除 */
%DELETE {
loop ({
case(@FILEsel1({削除するファイルを指定して下さい},)={},
{Yes},{im({No})},
{No},
{
SNDMSG({kaknin_f.snd});
footnote({ファイル削除 }|OLDFILE);
select (OLDFILE|{を削除してもいいですか?},
Wtime4,,
{ は い },
{case (@tail(OLDFILE,{\})={*.*},
{Yes},{command({echo y|del }|OLDFILE)},
{No},{command({del }|OLDFILE)})},
{ いいえ },
);
im({Yes});
});});};
/* 全ファイル削除 */
%DELall {
SNDMSG({erande_f.snd});
footnote({全ファイル削除するディレクトリへ移動して}|
{左クリックして下さい});
filesel;
OLDDIR:=@getcdir;
SNDMSG({kaknin_f.snd});
footnote({全ファイル削除 }|@dir2(OLDDIR)|{*.*});wait(2);
select (OLDDIR|{の全ファイルを削除してもいいですか?},
Wtime4,,
{ は い },
{setcdir(OLDDIR);command({echo y|del }|OLDFILE|{*.*})},
{ いいえ },
);
};
/* ファイル一覧表示 */
%DIR {
loop ({
case(@FILEsel1({一覧表示するファイルを指定してください },)={},
{Yes},
{
OLDDIR:=@getcdir;SNDMSG({kaknin_f.snd});
footnote({ファイル一覧表示 }|OLDDIR);
select (OLDDIR|{の全ファイル一覧表示ですか?},
Wtime4,,
{全ファイル一覧表示},
{
command({dir }|OLDDIR);
loop ({
footnote({終了},{b});
waitx();
case(@xtype,101,{im({No})},
201,{im({No})},,{im({Yes})});
});
im({Yes});
},
{ 取 消 },
);
},
{No},
{
footnote({ファイル一覧表示 }|OLDFILE);
command({dir }|OLDFILE);
loop ({
footnote({終了},{b});
waitx();
case (@xtype,
101,{im({No})},201,{im({No})},
,{im({Yes})});
});
im({Yes});
});});};
/* ファイル実行 */
%EXEC {
var PARAM [64];
%execfile{
SNDMSG({nyuryo_f.snd});
PARAM:=@input(OLDFILE|{ のパラメータを入力して下さい});
footnote({ファイル実行中 }|OLDFILE);
command(OLDFILE|{ }|PARAM);
im({Yes});
};
loop ({
case (@FILEsel0({実行するファイルを指定して下さい},)={},
{Yes},{im({No})},
{No},
{
case (@tail(OLDFILE,{.}),
{COM},execfile,
{EXE},execfile,
{BAT},execfile,
,
{
SNDMSG({okasi_f.snd});
display(OLDFILE|{ は実行できません});
im({Yes});
});
});
});
};
/* NAPLPSファイル表示 */
var opfi [64];
%npm {NAPLPS データファイルを指定して下さい};
%NPS {
[np]
footnote({NAPLPSファイル表示 }|np);
naplps(np);
loop ({
footnote({終了再現},{b});
waitx();
case (@xtype,
101,{napend;im({No});},
201,{napend;im({No});},
102,{napend;naplps(np);im({Yes})},
202,{napend;naplps(np);im({Yes})},
,{im({Yes})}
);
});
im({Yes});
};
%NAPLPS {
dispoff(!DEBUG);
loop ({
case (@FILEsel0(npm,{NPB})={},{Yes},{im({No})},
{No},{NPS(OLDFILE)});
case (OLDFILE={},{No},{opfi:=OLDFILE});});
command({cd }|CDIR);
dispoff({No})};
/* ファイル応用操作 (lha,ish,diet) */
/* ファイル凍結 */
%LHAarc {
%FILEsel2{
SNDMSG({nyuryo_f.snd});
footnote({書庫ファイル名を入力して下さい 元ファイル=}|OLDFILE);
NEWFILE:=@filesel({LZH});NEWDIR:=@getcdir;
case(NEWFILE<>{},
{Yes},{case(@nochar(NEWDIR)==3,
{Yes},{NEWFILE:=NEWDIR|NEWFILE},
{No},{NEWFILE:=NEWDIR|{\}|NEWFILE})});
im(NEWFILE);
};
loop ({
case(@FILEsel1({圧縮凍結するファイルを指定して下さい},)={},
{Yes},{im({No})},
{No},
{
case(@FILEsel2={},{Yes},{im({No})},
{No},
{
footnote({ファイル圧縮凍結処理中 }|
OLDFILE|{ -> }|NEWFILE);
command({lha u }|NEWFILE|{ }|OLDFILE);
im({Yes});
});
});
});
};
/* .LZH ファイルを.EXE へ変換処理 */
%LHAs {
%FILEsel2{
SNDMSG({erande_f.snd});
footnote({変換先のディレクトリへ移動してキャンセ}|
{ルして下さい 移動元=}|OLDFILE);
%dmy @filesel;
NEWDIR:=@getcdir;
case (@nochar(NEWDIR)==3,
{Yes},{NEWFILE:=NEWDIR|@tail(OLDFILE,{\})},
{No},{NEWFILE:=NEWDIR|{\}|@tail(OLDFILE,{\})});
};
loop ({
case (@FILEsel0({変換するファイル(*.LZH)を選択して下さい},
{LZH})={},
{Yes},{im({No})},
{No},
{
FILEsel2;
footnote({LHAファイル変換処理中}|OLDFILE|{->.EXE});
command({lha s }|OLDFILE);
im({Yes});
});
});
};
/* ファイル解凍 */
%LHAext {
%FILEsel2{
SNDMSG({erande_f.snd});
footnote({解凍先のディレクトリへ移動してキャンセルして下さい});
%dmy @filesel;NEWDIR:=@getcdir;
case(@nochar(NEWDIR)==3,
{Yes},{NEWFILE:=NEWDIR|@tail(OLDFILE,{\})},
{No},{NEWFILE:=NEWDIR|{\}|@tail(OLDFILE,{\})});
};
loop ({
case(@FILEsel0({解凍する *.LZH ファイルを指定して下さい},{LZH})
={},
{Yes},{im({No})},
{No},
{
FILEsel2;footnote({ファイル解凍処理中 }|OLDFILE);
command({lha x }|OLDFILE);im({Yes});
});
});
};
/* 凍結ファイル内容表示 */
%LHAlst {
loop ({
case(@FILEsel0({内容表示する *.LZH ファイルを}|
{指定して下さい},{LZH})={},
{Yes},{im({No})},
{No},
{
footnote({凍結ファイル内容表示中 }|OLDFILE);
command({lha l }|OLDFILE);im({Yes});
});
});
};
/* ファイル石化 */
%ISHstr {
loop ({
case(@FILEsel1({*.ISH ファイルに変換するファイルを}|
{指定して下さい},)={},
{Yes},{im({No})},
{No},
{
case(OLDFILE={},{Yes},{im({No})},
{No},
{
footnote({ISHファイル変換処理中 }|OLDFILE);
command({ish }|OLDFILE|{ /ss});im({Yes});
});
});
});
};
/* ファイル解石 */
%ISHres {
loop ({
case(@FILEsel1({復元する *.ISH ファイルを指定して下さい},{ISH})
={},
{Yes},{im({No})},
{No},
{
case(OLDFILE={},{Yes},{im({No})},
{No},
{
footnote({ISHファイル復元処理中 }|OLDFILE);
command({ish }|OLDFILE|{ /r});im({Yes});
});
});
});
};
/* ダイエット処理 */
%DIETarc{
loop ({
case(@FILEsel1({ダイエットするファイルを指定して下さい},)={},
{Yes},{im({No})},
{No},
{
case(OLDFILE={},{Yes},{im({No})},
{No},
{
footnote({ダイエット処理中 }|OLDFILE);
command({diet }|OLDFILE);im({Yes});
});
});
});
};
/* ダイエットファイル復元 */
%DIETres{
loop ({
case(@FILEsel1({復元するダイエットファイルを}|
{指定して下さい},)={},
{Yes},{im({No})},
{No},
{
case(OLDFILE={},{Yes},{im({No})},
{No},
{
footnote({ダイエットファイル復元処理中 }|
OLDFILE);
command({diet -ra }|OLDFILE);im({Yes});
});
});
});
};
/* 差分ファイル作成処理 */
%BDIFF {
%FILEsel2{
SNDMSG({nyuryo_f.snd});
footnote({新ファイル名を入力して下さい 旧ファイル=}|OLDFILE);
NEWFILE:=@filesel;NEWDIR:=@getcdir;
case(NEWFILE<>{},
{Yes},{case(@nochar(NEWDIR)==3,
{Yes},{NEWFILE:=NEWDIR|NEWFILE},
{No},{NEWFILE:=NEWDIR|{\}|NEWFILE})});
im(NEWFILE);
};
loop ({
case(@FILEsel0({差分を作成する旧ファイルを指定して下さい},)={},
{Yes},{im({No})},
{No},
{
case(@FILEsel2={},{Yes},{im({No})},
{No},
{
footnote({ファイル差分作成処理中 }|
OLDFILE|{ -> }|NEWFILE);
command({BDIFF }|OLDFILE|{ }|NEWFILE);
im({Yes});
});
});
});
};
/* 差分ファイル復元処理 */
%BUPDATE{
loop ({
case(@FILEsel0({差分ファイルを指定して下さい},{BDF})={},
{Yes},{im({No})},
{No},
{
footnote({ファイル差分更新処理中 差分ファイル=}|OLDFILE);
%cdir1 @getcdir;
%cdir2 @dir2(cdir1);
command({BUPDATE }|OLDFILE);
setcdir(cdir1);
im({Yes});
});
});
};
/* 差分ファイル内容確認処理 */
%BUPDview{
loop ({
case (@FILEsel0({差分ファイルを指定して下さい},{BDF})={},
{Yes},{im({No})},
{No},
{
footnote({差分ファイル内容表示中 差分ファイル=}|OLDFILE);
%cdir1 @getcdir;
%cdir2 @dir2(cdir1);
setcdir(CDIR);
command({BUPDATE -v }|OLDFILE|{ }|cdir2|{*.*});
setcdir(cdir1);
WAITLOOP;
im({Yes});
});
});
};
/* ディレクトリ基本操作 */
/* ディレクトリ作成 */
%MKDIR {
SNDMSG({erande_f.snd});
footnote({作成するディレクトリ名を指定して下さい});
NEWDIR:=@filesel;
OLDDIR:=@getcdir;
case (@nochar(OLDDIR)==3,
{Yes}, {NEWDIR:=OLDDIR|NEWDIR},
{No}, {NEWDIR:=OLDDIR|{\}|NEWDIR}
);
mkdir2(NEWDIR);
};
/* ディレクトリ削除 */
%RMDIR {
SNDMSG({erande_f.snd});
footnote({削除するディレクトリへ移動して左クリックして下さい});
filesel;
OLDDIR:=@getcdir;
case (@nochar(OLDDIR)==3,
{Yes},
{
SNDMSG({okasi_f.snd});
display({ルートディレクトリは削除できません\n});
},
{No},
{
SNDMSG({kaknin_f.snd});
footnote({削除ディレクトリ=}|OLDDIR);
select ({ディレクトリ }|OLDDIR|{ を削除してもいいですか?},
Wtime4,,
{ は い },
{
setcdir2(@head(OLDDIR,{\}));
command({echo y|del }|OLDDIR|{\*.*});
command({rmdir \}|@body(OLDDIR,{\}));
},
{ いいえ },
);
});
};
/* 差分ファイル復元処理 */
%WSPupd {
loop ({
case (@FILEsel0({差分ファイルを指定して下さい},{WUP})={},
{Yes},{im({No})},
{No},
{
footnote({ファイル差分更新処理中 差分ファイル=}|OLDFILE);
%cdir1 @getcdir;
%cdir2 @dir2(cdir1);
command({WSP }|OLDFILE);
setcdir(cdir1);
im({Yes});
});
});
};
/* 自己実行形式ファイル作成処理 */
%WSPself{
loop ({
case (@FILEsel0({自己実行形式を作成する差分ファイルを}|
{指定して下さい},{WUP})={},
{Yes},{im({No})},
{No},
{
footnote({自己実行形式ファイル作成中 差分ファイル=}|
OLDFILE);
%cdir1 @getcdir;
%cdir2 @dir2(cdir1);
setcdir(CDIR);
command({WSP -S }|OLDFILE|{ }|
cdir2|@tail(OLDFILE,{\},{.})|{COM});
setcdir(cdir1);
im({Yes});
});
});
};
/* RTTLCで整理したログを月毎に凍結書庫に収納する */
var l1 [82];var fn [64];
%RTLdir {
setcdir(CDIR);
%dtf TEMP2|{doraedt.tmp};
setcdir(CDIR);
dispoff(!DEBUG);
command({txl -dir }|RTTLdir|{ }|dtf);
dispoff({No});
};
/* ログ参照メイン処理 */
%RTTLlog{
fn:=@tail(RTTLdir,{\});
InactMemo;
loop ({
RTLdir;
%lineno @noline(@read(TEMP2|{doraedt.tmp}));
case ((@nochar(RTTLdir)!=3&&lineno>9)||
(@nochar(RTTLdir)==3&&lineno>7),
{Yes},{ViewRTlog1},
{No},{display(RTTLdir|{ は空です\n});im({No})}
);
});
DeleteMemo(memono);
setcdir(CDIR)
};
%ViewRTlog1{
loop ({
InactMemo;
case(@mlast>=memono,{Yes},{mclear(memono)});
case (@nochar(RTTLdir)==3,
{Yes}, {madd(memono,@read(TEMP2|{doraedt.tmp},5,lineno-7))},
{No}, {madd(memono,@read(TEMP2|{doraedt.tmp},7,lineno-9))}
);
mopen(memono,0,21,639,459,{r});SNDMSG({erande_f.snd});
footnote({終了 書庫},{b});
waitx();
case (@xtype,memono,LzHu,
101,{im({No})}, 201,{im({No})},
103,{LzHu;RTLdir},203,{LzHu;RTLdir},
,{im({Yes})}
);
})
};
%LzHu {
%MemoLine @nolmemo(memono)-1; /*メモの総行数を返す*/
%LineNo @xlinenum; /*カーソル位置の行数を返す*/
case (LineNo>MemoLine,
{No},{case (LineNo<=0,
{No},{
l1:=@getchar(@memo(memono,LineNo,1),1,80);
})
});
case (@head(l1,{_})=NET && @head(l1,{.},{ })<>{LOG},
{No},
{footnote({カーソルをRTTLCで整理済のファイル行に置いて下さい。});
wait(2)},
{Yes},{mkdir2(RTTL2|{凍結書庫});
OLDFILE:=@subdir(RTTLdir,
@head(l1,{.})|{.*});
NEWFILE:=@subdir(RTTLdir|{\凍結書庫},NET|
@getchar(l1,24,2)|@head(l1,NET,{.})|{.LZH});
DeleteMemo(memono);
command({lha u }|NEWFILE|{ }|OLDFILE);
case (@filechk(NEWFILE),
{Yes},{footnote(@getchar(l1,5,2)|{月のログを}|
{圧縮して凍結書庫に保管しました。});wait(2);
delRTLOG});
});im({Yes})
};
%delRTLOG{
SNDMSG({kaknin_f.snd});
select ({元ログファイル}|@tail(OLDFILE,{\})|{を削除します},
Wtime4,{im({Yes})},
{ 削除する },
{
InactMemo;
command({echo y|del }|OLDFILE);
delfile(TEMP2|{doraedt.tmp});
dispoff(!DEBUG);
%dtf TEMP2|{doraedt.tmp};
setcdir(CDIR);
command({txl doratxl.set -dir }|RTTLdir|{ }|dtf);
dispoff({No});
%lineno @noline(@read(TEMP2|{doraedt.tmp}));
case (lineno>8,
{Yes},
{case(@mlast>=memono,{Yes},{mclear(memono)});
madd(memono,@read(TEMP2|{doraedt.tmp},6,lineno-8));
});
im({No})},
{ 削除しない },{im({Yes})}
);im({Yes})
};
%LOGman {
footnote({受信ログを参照します});
%memono @mlast+1;
case (memono>5,
{No},{RTTLlog},
{Yes},{SNDMSG ({kaknin_f.snd});
select ({メモ5-9の内容が消去されます よろしいですか?},
Wtime4,,
{ は い },{RTTLlog},
{ いいえ },
);
});
};/* ファイル基本操作の選択 */
%FILEman1{
loop ({
SNDMSG({erande_f.snd});
footnote({ファイル基本操作の処理を選択して下さい});
select({ファイル基本操作メニュー},
Wtime4,{im({No})},
{ファイル表示 -type(more)},{DISPLAY;im({Yes})},
{ファイル複写 -copy },{COPY;im({Yes})},
{ファイル移動 -copy&del },{MOVE;im({Yes})},
{ファイル名変更 -rename },{RENAME;im({Yes})},
{ファイル削除 -del },{DELETE;im({Yes})},
{全ファイル削除 -del *.* },{DELall;im({Yes})},
{ファイル一覧表示 -dir },{DIR;im({Yes})},
{ 終 了 },{im({No})});
});
};
/* ディレクトリ操作の選択 */
%DIRman {
loop ({
SNDMSG({erande_f.snd});
footnote({ディレクトリ操作の処理を選択して下さい});
select({ディレクトリ操作メニュー},
Wtime4,{im({No})},
{ディレクトリ作成 -mkdir },{MKDIR;im({Yes})},
{ディレクトリ削除 -rmdir },{RMDIR;im({Yes})},
{ 終 了 },{im({No})}
);
});
};
/* CD-ROM 辞書 検索 */
%CDFIND {
SNDMSG({kaknin_f.snd});
footnote({CD-ROMに辞書をセットしてください});
select({CD-ROMに辞書をセットしてください},
Wtime4,,
{ O K },
{
InactMemo;
%memono @mlast+1;
madd(memono,{});
mopen(memono,1,21,639,459);
CDfind(memono);
DeleteMemo(memono);
},
{ N G },
);
};
/* ファイル応用操作の選択 */
%FILEman2{
loop ({
SNDMSG({erande_f.snd});
footnote({ファイル応用操作の処理を選択して下さい});
select({ファイル応用操作メニュー},
Wtime4,{im({No})},
{ファイル圧縮凍結 >LHA u },{LHAarc;im({Yes})},
{ .LZH から.EXEへ >LHA s },{LHAs;im({Yes})},
{ファイル解凍 >LHA x },{LHAext;im({Yes})},
{凍結ファイル一覧 >LHA l },{LHAlst;im({Yes})},
{ファイル石化 >ISH /s },{ISHstr;im({Yes})},
{ファイル解石 >ISH /r },{ISHres;im({Yes})},
{ファイル圧縮 >DIET },{DIETarc;im({Yes})},
{ファイル復元 >DIET -ra },{DIETres;im({Yes})},
{ファイル差分作成 >BDIFF },{BDIFF;im({Yes})},
{ファイル差分更新 >BUPDATE },{BUPDATE;im({Yes})},
{差分ファイル確認 >BUPDATE-v},{BUPDview;im({Yes})},
{ファイル差分更新 >WSP },{WSPupd;im({Yes})},
{自己更新形式作成 >WSP -S },{WSPself;im({Yes})},
{ 終 了 },{im({No})});
});
};
/* ファイル操作メインメニュー */
/* 設定する情報の選択 */
%DORAFILE{
loop ({
SNDMSG({erande_f.snd});
footnote({ファイル編集を選択して下さい});
select ({ファイル編集メインメニュー},
Wtime4,{im({No})},
{ ファイル基本操作 },{FILEman1;im({Yes})},
{ ログファイル整理 },{LOGman;im({Yes})},
{ ファイル実行 },{EXEC;im({Yes})},
{ NAPLPS表示 - },{NAPLPS;im({Yes})},
{ 応用操作(lha,ish,diet,bdiff) },{FILEman2;im({Yes})},
{ ディレクトリ操作 },{DIRman;im({Yes})},
{ CD-ROM 辞書検索 },{CDFIND;im({Yes})},
{ 終 了 },{im({No})}
)})};
/* 作業領域定義 */
var OLDFILE [64];var NEWFILE [64];
var OLDDIR [64];var NEWDIR [64];
/* 実行文 */
DORAFILE;